home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 July: Mac OS SDK / Dev.CD Jul 99 SDK1.toast / Development Kits / Mac OS / Interfaces&Libraries / Universal / Interfaces / AIncludes / OSAComp.a < prev    next >
Encoding:
Text File  |  1998-08-17  |  1.5 KB  |  59 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        OSAComp.a
  3. ;
  4. ;    Contains:    AppleScript Component Implementor's Interfaces.
  5. ;
  6. ;    Version:    Technology:    AppleScript 1.1
  7. ;                Release:    Universal Interfaces 3.2
  8. ;
  9. ;    Copyright:    © 1992-1995, 1997-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        For bug reports, consult the following page on
  12. ;                the World Wide Web:
  13. ;
  14. ;                    http://developer.apple.com/bugreporter/
  15. ;
  16. ;
  17.     IF &TYPE('__OSACOMP__') = 'UNDEFINED' THEN
  18. __OSACOMP__ SET 1
  19.  
  20.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  21.     include 'MacTypes.a'
  22.     ENDIF
  23.     IF &TYPE('__AEDATAMODEL__') = 'UNDEFINED' THEN
  24.     include 'AEDataModel.a'
  25.     ENDIF
  26.  
  27. ; **************************************************************************
  28. ;    Types and Constants
  29. ;*************************************************************************
  30.  
  31. ; **************************************************************************
  32. ;    Routines for Associating a Storage Type with a Script Data Handle 
  33. ;*************************************************************************
  34.  
  35. ;
  36. ; pascal OSErr OSAGetStorageType(Handle scriptData, DescType *dscType)
  37. ;
  38.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  39.         IMPORT_CFM_FUNCTION OSAGetStorageType
  40.     ENDIF
  41.  
  42. ;
  43. ; pascal OSErr OSAAddStorageType(Handle scriptData, DescType dscType)
  44. ;
  45.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  46.         IMPORT_CFM_FUNCTION OSAAddStorageType
  47.     ENDIF
  48.  
  49. ;
  50. ; pascal OSErr OSARemoveStorageType(Handle scriptData)
  51. ;
  52.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  53.         IMPORT_CFM_FUNCTION OSARemoveStorageType
  54.     ENDIF
  55.  
  56.  
  57.     ENDIF ; __OSACOMP__ 
  58.  
  59.